sHelp
                                     MIS.MAR.STATUS
     i   2
 main
   abs.tape.codes
   customer.defined.queries

 Ì   €   i   2
main
[mnemonic]
&(G)GGO[ggo]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 mnemonic                    10 FREE     L                 ggo                                                         
 active                       1 YN       L                 &(G)GGO[ggo]|0                                              
 hospital.code.to            10 FREE     L                 &(G)GGO[ggo]HHC|1                                           
 last.update                 10 PINT     R                 &(G)GGO[ggo]UPD                                             
 name                        30 FREE     L                 &(G)GGO[ggo]|1                                              
 ptct.status                 11 CHOICE   L                 &(G)GGO[ggo]HHC|0                                           
 ub82.code                    1 FREE     L                 &(G)GGO[ggo]|2                                              
 Ì   €   i   2
abs.tape.codes
[mnemonic,  abs.tape.svc]
&(G)GGO[ggo]A[gsc]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 abs.tape.svc                10 FREE     L  MIS.ABS.TAPE   gsc                                                     
 abs.tape.code                8 FREE     L                 &(G)GGO[ggo]A[gsc]|0                                        
 Ì   €   i   2
customer.defined.queries
[mnemonic,  cd.query]
&(G)GGO[ggo]CD[ggv]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 cd.query                    10 FREE     L  MIS.QUERY      ggv                                                     
 cd.response                 75 QRY.RESP L                 &(G)GGO[ggo]CD[ggv]|0                                       

 Index Files                        Subscripts/Physical Base

 hospital.code.x                    [hospital.code] = mnemonic
                                      &(G)GGOHX[ggohx]

 ub.code.x                          [ub82.code,mnemonic] = active
                                      &(G)GGOU[ggoU,ggo]